home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ian & Stuart's Australian Mac: Not for Sale
/
Another.not.for.sale (Australia).iso
/
fade into you
/
getting there
/
TCP⁄PPP⁄SLIP
/
TCP⁄IP Scripting Addition 1.1.2
/
Examples 1.2
/
Text Versions
/
Finger (text)
< prev
next >
Wrap
Text File
|
1994-09-18
|
1KB
|
40 lines
(*
Finger 1.1
Copyright © 1994 by Atul Butte. All Rights Reserved.
*)
global CR, LF, CRLF
set LF to (ASCII character of 10)
set CR to (ASCII character of 13)
set CRLF to CR & LF
set dialog_response to (display dialog "Enter the name of the machine to check" default answer "")
if (button returned of dialog_response ≠ "OK") then
return
else
set email_host to text returned of dialog_response
end if
set dialog_response to (display dialog "Enter the e-mail address to check on " & email_host default answer "")
if (button returned of dialog_response ≠ "OK") then
return
else
set email_address to text returned of dialog_response
end if
set sss to (tcp connect to host email_host port 79)
try
tcp write data email_address & return using ISO88591 stream sss
repeat until (bytes waiting of (tcp status stream sss) > 0)
end repeat
set response to (tcp read using ISO88591 stream sss)
on error
tcp close stream sss
end try
tcp close stream sss
tell application "Scriptable Text Editor"
activate
make new document at beginning
set selection to response
end tell